#!/usr/bin/perl
use locale;
$compt1=0;
$compt2=0;
$i=0;
$plusgrand=0;
open(FILEIN,"frequencesmots.txt"); 
# on ouvre le fichier qu'on va lire
open(FILEOUT, ">calculfrequences.txt");
# on ouvre le fichier dans lequel on va écrire le dictionnaire
@tab=<FILEIN>;
foreach $ligne(@tab) {
$type++; 
#On utilise le nombre de lignes dans le fichier 
#pour compter le nombre de mots différents
if ($ligne==1) {
	$compt1++;
	}
	if ($ligne<10) {
	$compt2++;
	}
}
for ($i=0, $i<=$#tab, $i++) {
	if (@tab[$i]>$plusgrand) {
	$plusgrand=@tab[$i];
}
}
print FILEOUT "Il y a $type mots différents dans ce fichier\n"; 
print FILEOUT "Il y a  $compt1 mots qui ne sont présents qu'une seule fois\n";
print FILEOUT "Il y a  $compt2 mots qui sont présents moins de dix fois\n";
print FILEOUT "Le nombre d'occurrence maximal est : $plusgrand\n";
close(FILEIN); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie	